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DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
1620 USEES Group, as to the accuracy and functioning of the 
program and related program material, nor shall the fact of 
distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or 1620 USEES Group, in con- 
nection therewith. 



1620 USERS GROUP PROGRAM REVIEW AND EVALUATION 
(fill out in typewriter or pencil, do not use ink) 

Program No. _^ Date _____ 

Program Name: 

1. Does the abstract adequately describe what the program is and what Yes No_ 

it does? 

Comment t _ m 

2. Does the program do what the abstract says ? Yes No_ 

Comment _________________________ 

3. Is the Description clear, understandable, and adequate? Yes No_ 

Comment 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No_ 

Commen t 

Are the Sense Switch options adequately described (if applicable)? Yes No^ 

Are the mnemonic labels identified or sufficiently understandable? Yes No_ 

Comment 

5. Does the source program compile satisfactorily (if applicable)? Yes No^ 

Commen t 

6. Does the object program run satisfactorily? Yes No_ 

Comment 

7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No_ 

Commen t . __ 

8. Does the Program Meet the minimal standards of the 1620 Users 

Group? Yes No_ 

Commen t 

9. Were all necessary parts of the program received? Yes No_ 

Commen t _____ 

10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 



Mr. Richard L. Pratt Company 
Data Corporation 

7500 Old Xenia Pike Address 
Dayton, Ohio 45432 



User Group Code 



THIS REVIEW FORM IS PART OF THE 1620 USER GROUP ORGANIZATION'S PROGRAM 
REVIEW AND EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED 
TO PARTICIPATE IN THIS EVALUATION. 



11/09/64 
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Author: William G. Davidson 

Flight Simulation Laboratory 
AMTED - EML 
White Sands M ssile Range 
New Mexico 



Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for IBM Data Processing Systems. When such an announce- 
ment occurs, users should order a complete new program 
from the Program Information Department. 
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DECK KEY 



I. SPS Deck 



2. Compressed, Assembled Deck 
38 cards 0000 through 0037 



Contents of Manual 
Abstract 

Operating Instructions 
Remarks 
Flow Chart 
Program Listing 



ABSTRACT 



Title: Card Punch or List 

Subject Classification: 1.6 

Author: William G. Davidson 

Flisrht Simulation Laboratory 
AMTSD - EML 

White Sands Missile Range 
New Mexico 

Direct Inquiries to: Author listed above 

Purpose/Description: This progra:.; types and/or punches 
on cards the numeric and alphabetic information 
punched in the first i-i columns of each card of 
an input deck, including all record marks. The 
number H (between 01 and 80) is specified by 
the user. 

Mathematical Method: N/A 

Restrictions, Range: Only legitimate 1620 card character 
codes can be read from the input cards. 

Storage Requirements: 1378 digits for the main program 
and associated program storage; 322 digits for 
arithmetic tables and work areas. 

Equipment Specifications: Any size memory, card Input- 
output, indirect addressing, BLC feature (use 
of the BLC feature can be avoided by a minor 
program change). 

Remarks: This program was written in SPS for a 20K 
machine. It was assembled with a DORG 402, 
and can be relocated by reassembling with a 
new origin. Running time is essentially deter- 
mined by input-output speeds, especially when 
listing cards on the typewriter. 



OPERATING INSTRUCTIONS 



1. After loading the program push start (or transfer 
manually to location 402). The following message 
will be typed: 

TURN SW 1 ON TO PUNCH, 2 ON TO TYPE, 

ENTER NR OF COLUMNS TO BE PUNCHED OR LISTED, 

PRESS RELEASE AND START 

2. Set the sense switches as desired. If switches 

1 and 2 are both on, the input cards will be both 
listed and reproduced. Type a 2-digit number 
(01 through 80) specifying the number of card 
columns to be punched or listed. All columns to 
the right of the last column specified will be 
punched as blanks and will not be typed. Press 
the release and start buttons. 

3. After the last input card has been read, the 
following message will be typed: 

END OF PROCESSING. TO PUNCH OR LIST MORE CARDS, 
PUSH START BUTTON. 

4. If another deck of cards is to be punched or 
listed, press the start button. The following 
message will be typed: 

ENTER NR OF COLUMNS TO BE PUNCHED OR LISTED, 
PRESS RELEASE AND START 



5. 



Return to step 2. 



REMARKS 



1. As presently assembled, program storage la assigned as 
follows: 

00080-00400 arithmetic tables and work area; 
00402-01779 main program and associated storage; 
19999 record mark storage. 

The main program can be relocated by reassembling the 
urogram with a new DORG card. If this is done, the 
compressed, reassembled deck must be modified as follows. 

card nr oolumn nr change to 

25 27 29 1-4° ln odd columns, in even columns 

26^28', 30 1-29 ln odd columns, in even columns 

These changes are necessary in order to place the needed 
flags in the alphameric storage areas. 

2 If the program is to be used on a 1620 without the BLC 

featurefchan^e the "OUT" card from »BLC END to «B INPUT" 
and reassemble the urogram. If this is done, the compressed, 
reassembled deck must be modified as described above. 

"5 Program running time, excluding input-output time, will 
vary from 5 to 155 milliseconds per card, depending upon 
the number of record marks on the input card, the number 
of columns to be punched or listed, and the settings of 
sense switches 1 and 2. This time is relatively insigni- 
ficant compared to the time used by the input-output 
devices (card reader, card punch and especially tne typewriter). 

4 Note that this orogram can be used to reproduce the first 
72 for examole, columns of Fortran data output cards, thus 
deleting any unwanted sequencing numbers. Also, it is felt 
that the program should be of some use to those organizations 
that do not have off-line card reproducers or listers. 



FLOW CHART 



START | Print initial comments and 
enter nr of columns to be listed or 
punched. Determine last cell of 10 
area to be punched or listed. 



INPUT I Read a card 



linto the 10 area. 



lis switch 1 on? I 



No 



Is switch 2 on? j 



Yes 



PUNCH I Store blanks in that 



portion of 10 area which is 
not to be punched. Punch a 
card from the 10 area. 



PRINT1-SETRM I Search 10 



area for rightmost non-blank 
character to be listed and 
set a record mark one alpha- 
meric cell to the right of 
this character. 



Yes 



PRINT2-CHKRM | Type the 
alphameric Information 
from the 10 area. Locate 
i leftmost record mark in 
ithe area being typed. 



Is this record mark j 
| the one set in the |_ 
1 SETRM section? i 



Is switch 2 on? 



No 



3j OUT j Has last card 
been read? 



END Print the 



terminal comments 
•ndstop. 



To continue, 
transfer to START. 



Dump record mark from 
19999. Advance initial £ 
typing, cell within 10. 



Does this initial typing! 
cell contain a record \ 
! mark? i 



Yea 



No 



PROGRAM LISTING 



DORG 00402 
START RCTY 

WATY REM1 
RCTY 

WATY REM2 
RCTY 

WATY REM3 
RNTY NR-1 
SF NR-1 
RCTY 

MM NR,2,9 

AM 99,10-2 
INPUT RACD 10 

BC1 PUNCH 

BNC2 START 
PRINT 1 TF TEMP 1,99 

BNR A, TEMPI, 11 
SETRK TF TEMP2, TEMPI 

AM TEMP2,2,10 

TD TEMP2, 19999,6 

TF TEKP3, TEKP2 

B PRINT2 

DORG *-3 
A CM TEI=:P1 ,0,610 

BNZ SETRM 

SM TEKP1,2,10 

B PRINT1+12 

DORG *-3 
PRINT2 TFM TEKP2.I0 
- RCTY 

BNR CHKRM- 1 2 , TEMP2 , 1 1 

B CHKRM+12 

DORG *-3 

WATY TEMP2, ,6 
CKKRM BNR B.TEMP2.11 

C TEMP2.TEKP3 

BZ OUT 

DNTY 19999 

AM TEMP2,2,10 

B PRINT2+24 

DORG *-3 
3 AM TEKP2,2,10 

B CHKRM 

DORG *-3 
PUNCH TF TEKP2.99 

AM TEMF2,1,10 

TR TEMP2 , BLANK- 1 , 6 

AM TEMP2.80, 10 

TR TEKP2, BLANK- 1 ,6 



© 



OUT 



END 



REK1 

REK2 

REK3 

REM4 

REK5 

TEMPI 

TEKP2 

TEKP3 

NR 

RK 

BLANK 
10 



WACD 
BC2 
BLC 
B 

DORG 

RCTY 

RCTY 

WATY 

WATY 

RCTY 

H 

B 

DORG 

DAC 

DAC 

DAC 

DAC 

DAC 

DS 

DS 

DS 

DS 

DC 

DAC 

DAC 

DAC 

DEND 



10 

PRINT 1 
END 
INPUT 
*-3 



REM4 
REM5 



START+24 
*-3 

37. TURN 3W 1 ON TO PUNCH, 2 ON TO TYPE,® 

45, ENTER NR OF COLUMNS TO 3E PUNCHED OR LISTED, ( 

27. PRESS RELEASE AND START ® 

41, END OF PROCESSING. TO PUNCH OR LIST KORB& 

27, CARDS, PUSH START BUTTON.® 

5, START+6 

5.START+30 

5.START+54 

2.START+102 

1, 8,19999 

41, ® 

40,0 

40,0 

START 



Note: If this broerram is to be reassembled, the compressed, 
reassembled deck must be modified as described previously 
in the "REMARKS" section. 



COMPUTER MUSEUM HISTORY CEf* 
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1 026 2031 7 



